unit OP_Raznes;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dRoot, cxStyles, dxSkinsCore, dxSkinBlack, dxSkinBlue,
  dxSkinCaramel, dxSkinCoffee, dxSkinDarkSide, dxSkinGlassOceans,
  dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
  dxSkinMcSkin, dxSkinMoneyTwins, dxSkinOffice2007Black,
  dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
  dxSkinOffice2007Silver, dxSkinPumpkin, dxSkinSilver, dxSkinStardust,
  dxSkinSummer2008, dxSkinsDefaultPainters, dxSkinValentine,
  dxSkinXmas2008Blue, dxSkinscxPCPainter, cxCustomData, cxGraphics,
  cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData,
  cxDBLookupComboBox, cxCalc, IBCustomDataSet, IBQuery, cxGridLevel,
  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
  cxControls, cxGridCustomView, cxGrid, ComCtrls, ToolWin, StdCtrls,
  Buttons, ExtCtrls;

type
  TfmOP_Raznes = class(TdlgRoot)
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    cxGrid1: TcxGrid;
    tvPlat: TcxGridDBTableView;
    cxGridLevel5: TcxGridLevel;
    qPoluchUslug: TIBQuery;
    qPoluchUslugPID: TIntegerField;
    qPoluchUslugPP: TIBStringField;
    qPoluchUslugSDNAME: TIBStringField;
    dsPoluchUslug: TDataSource;
    tvPlatOPRDATE: TcxGridDBColumn;
    tvPlatOPRNOTE: TcxGridDBColumn;
    tvPlatOPRPRIHOD: TcxGridDBColumn;
    tvPlatOPRRASHOD: TcxGridDBColumn;
    tvPlatPID_POLUCH: TcxGridDBColumn;
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmOP_Raznes: TfmOP_Raznes;

implementation

{$R *.dfm}

procedure TfmOP_Raznes.ToolButton1Click(Sender: TObject);
begin
  inherited;
  (dlgDS.DataSet as TIBQuery).Insert;
end;

procedure TfmOP_Raznes.ToolButton2Click(Sender: TObject);
begin
  inherited;
  (dlgDS.DataSet as TIBQuery).delete;
end;

end.
